module omplib
public
contains
!! ---------------------------
subroutine get_total_threads(nthreads)
integer :: nthreads
nthreads = 1 
endsubroutine get_total_threads
!! ---------------------------
subroutine get_thread_id(id)
integer :: id
id=0
endsubroutine get_thread_id 
!! ---------------------------
subroutine wall_clock_time(time)
  double precision :: time
  integer :: clock
  CALL SYSTEM_CLOCK(COUNT=clock)
  time=dfloat(clock)
endsubroutine wall_clock_time
!! ---------------------------
endmodule omplib
